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Guida per l’input dei programmi versioni 
VIC 20 e C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe / /. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario"' questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sarà 
molto più agevole copiare I listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


{CLR} 
{HOME} 
{SU} ^ 
{GIU'} 
{SIN} 

{DES } 

• 

{ RVS } 
{OFF} 

{BLK} 
{WHT} 
{RED} 


SHIfT |ClB/HOWE| 

essi il 

SHIMj^CRS* =3 


f?Hl Q 
EESD 


rcni 

O 


IO 

PUTÌ 


PUTÌ 

□ 



{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
(< 1 >) 
(< 2 >) 

(<3>1 
I < 4> | 
l<5>] 
l<6>] 




□ a 

HO 

HO 

HO 

HO 

HO 



l<7>) 

m 

( < 8 > ] 

□ 

{FI} 

B 

{F2 } 

Si 

{F3} 

□ 

{F4} 

PS 

{F5} 

@1 

{F6} 

E 

I F7 } 

e 

■1 

{ F8 } 


HO 


ho ; 

i 


m 


m 


GB 


m 


KS 


m 


V¥À 


OD 




compilare il seguente tagliando: 


Per ricevere gli arretrati di 

K 

. Compilare ed inviare in busta chiusa a: 

J.SOt C viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cosnome- 

Indirizzo -- 

CAP_ Città_ Prov. — 


Desidero ricevere i sesuenti numeri arretrati di 

- 

dedicato a_ 

a L. 2.000 cad. per un totale di L. 



Anno_ 

Anno_ 

a mezzo 


□ assegno allegato □ contanti allegati 

K 
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Stop Bus 


Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro -• 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem” seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell 'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma 
Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4). Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20, 
SYS 16128 per il 06 e il PLUS/4 
SYS 40704 per il C 64 








STOP BUG per C64 e VIC 20 


1 0 0 POKE5 5,0:POKE56,PEEK(56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32 :READA:CK=CK + A:IFA=999THENA=R/256 
120 POKEI,A :NEXT 

130 IFCK022689THENPRINT" {GIU ' lERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

2 00 DATAI 7 3,36,3,201 ,32,208,1 ,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
2 20 DATA32,141 ,36,3,169,999,141 ,37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
240 DATA2 51 ,1 34,252,1 32,253,8,201 ,1 3,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,2 1 4,1 41 , 2 51 
2 80 DATA3,206,2 51 ,3,169,0,133,216,169 

2 90 DATAI 9,32,210,255,169,18,32,210,255 
30 0 DATAI 69,58,32,21 0,255 , 1 66,254,1 69,0 
310 DATAI 33,2 54,1 72,33,999,1 92,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,173 
340 DATA251,3,133,214,76,55,999 


STOP BUG per C16 e PLUS/4 

100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

1 1 0 FORI = 1 61 2 8T01 6 2 60 :READA:CK=CK+A:POKEI,A:NEXT 

120 IFCKOl 4248THENPRINT" {GIU '} ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS!6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 7 3,34,3,201 ,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141 ,34,6 3,1 69 
220 DATA32,141,34,3,169,63,141,35,3 

2 30 DATAI 69,0,1 33,6,96,32,232,235,1 3 3 
240 DATA3,134,4,132,5,8,201,13,240 

2 50 DATAI 7,201 ,32,240,5,24,101 ,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3 , 32,21 0,255,1 65,20 5,1 41 , 2 51 
280 DATA3,206,251 ,3,169,0,133,207,169 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 

3 00 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA3 2,95,1 64,76,117,63,32,7,208 

330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA2 51 , 3,1 33,205,76,55,63 
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Fuga spaziale 



Joystick 


"Base chiama ammiraglia, rispon¬ 
dete na vice!la ammiraglia - Ordine 
di rientro!" In questo suggestivo 
gioco dovrete appunto raccogliere 
questo appello, cioè cercare di at¬ 
terrare sani e salvi sulla base posta 
al centro dello schermo. Purtrop¬ 
po, però, questa zona dello spa¬ 
zio è infestata da missili nemici a 
ricerca automatica, che rincorrono 
la vostra navicella costringendovi 


alla fuga e rendono quindi il rientro 
molto pericoloso. 

Ogni atterraggio vi fa guadagnare 
punti, ed avete a disposizione tre 
navicelle,- quindi in questo fanta¬ 
smagorico gioco la durata della 
partita dipende soprattutto da voi. 
Potete restare "incollati" davanti al 
video anche per parecchio tempo,- 
è però necessaria molta abilità e 
anche una certa fortuna. 


100 REM FUGA SPAZIALE :rem 241 

1000 PRINT"{CLR}":POKE36879,8 • :rem 3 

1010 P = 28 : rem 185 

1 020 POKE52,P:POKE56,P:CLR:F0RI = 7168T07679:POKEI,PEEK(1 + 2 
5600) :NEXT : rem 123 

1 090 REM : rem 

1100 A=0:FORJ=82 8T0912 :READX:POKEJ,X:A=A+X:NEXT:READX 

: rem 

1105 IFAOXTHENPRINT" {YEL}ERRORE NELLE DATA" : END : rem 
1110 REM : rem 

1 1 20 F0RO7432T07551 : READA: POKEC , A: NEXT 
1130 REM 

1140 PRINT"{GIU 1 }{RVS} UN TASTO PER GIOCARE{OFF}" 

: rem 

1150 GETA$:IFA$ = ""THENi 150 : rem 

1160 SYS828:PRINT"{CLR}":POKE36869,255 :rem 

1 1 70 REM : rem 173 

1180 A = PEEK(36866)AND128 :SC = 4*A+64*(PEEK(36869)ANDl12) :CO 
=37888+4*A :rem 199 

1 1 90 G = 3 : rem 130 

1200 SI=36876:S2=S1+1:V=S2+1:SE=0 :rem 91 

1210 YR= 5 :YB=17:GOSUBl610 :D = 1 :FP = SC + 252 :POKEV,15:CH = 40 

:rem 231 

1 22 0 REM : rem 169 

1 230 FORT=lTOl00 :R=INT(RND( 1 )*505) :POKECO+R,INT(RND(1)*7+ 
1 ) :POKESC+R,47:NEXT :rem 97 

1 240 PRINT"{HOME}{YEL} !#$%"SE :PRINT"{HOME}"SPC(11)"&' !#$% 
"HI : rem 212 

1250 REM :rem 172 

1 260 POKESl ,0 ; rem 216 


1 74 

1 29 
1 1 3 
1 67 
: rem 153 
:r em 16 9 

91 
1 77 
72 
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84 


1 270 Q=PEEK(SC+XR+22*YR) :IFQ = 44THENl 530 : rem 

1 280 01 =XR:02 = YR:03 = XB: 04 = YB:POKECO+2 5 2,1 :POKEFP,4 6 

: rem 174 


1 290 IFSC+XR+22*YR=FPTHENPOKESl , 1 80 :SE = SE+10:POKESC+Ol+22 



*02,32:GOSUBl610:GOSUBl 490 

: rem 

86 

1 300 

Z=(1 AND(PEEK(841)=0)) +(2AND(PEEK(842) =0) ) + (3 AND(PEEK 


(843)=0))+(4AND(PEEK(844)=0)) 

: rem 

128 

1 310 

ONZGOSUBl 41 0,1 430,1450,1470 

: rem 

228 

1 320 

SB=32:IFRND(1)<.7THENSB=44:GOTOl350 

: rem 

1 1 4 

1 330 

XB=XB+D*SGN(XR-XB):XB=XB-SGN(XB)-SGN(XB-21) 

: rem 

1 82 

1 340 

YB=YB+D*SGN(YR-YB):YB=YB-SGN(YB)-SGN(YB-22) 

: rem 

192 

1 350 

IF(XB = XRANDYB = YR)THEN1 530 

: rem 

1 20 

1 360 

POKECO+XB+22 *YB,5 :POKESC+XB+22 *YB,44:POKESC+03+ 22*04 


, SB 

: rem 

90 

1 370 

SP= 32 :IFZ = 0THENSP=CH 

: rem 

58 

1 380 

POKECO+XR+2 2*YR,7 :POKESC+XR+2 2 *YR,CH:POKESC+Ol+22*02 


,SP 

: rem 

203 

1 390 

GOTO!250 

: rem 

206 

1 400 

REM 

: rem 

1 69 

1 410 

YR=YR-1 :IFYR<2THENYR=2 

: rem 

226 

1420 

CH = 40: RETURN 

: rem 

1 3 

1 430 

YR=YR+1:IFYR>22THENYR=22 

: rem 

72 

1 440 

CH=42:RETURN 

: rem 

1 7 

1 450 

XR=XR-1 :IFXR< 0THENXR=0 

: rem 

222 

1 460 

CH=41 : RETURN 

: rem 

1 8 

1 470 

XR=XR+1:IFXR>21THENXR=21 

: rem 

70 

1 480 

CH=43:RETURN 

: rem 

22 

1 490 

REM 

: rem 

1 78 

1 500 

IFSE>HITHENHI=SE 

: rem 

81 

1 51 0 

PRINT"{HOME}{YEL}!#$%{WHT}"SE :PRINT"{HOME}{YEL}" 

SPC ( 


11) "& 1 !#$ %{WHT}"HI 

: rem 

124 

1 520 

RETURN 

: rem 

1 68 

1 530 

REM 

: rem 

1 73 

1 540 

FORVO=15TOOSTEP-.1 :POKE36879,l6 :POKESC+Ol+22*02, 

45 : P 


OKEV,VO:POKE36879,8 

: rem 

1 36 

1 550 

POKES2,160+VO:POKESC+Ol+22*02,32 :NEXT 

: rem 

0 

1 560 

POKES2,0 :POKES1 ,0:G = G-1 :IFG>0THENPRINT"{CLR}":GOTOl2 


1 0 

: rem 

208 

1 570 

PRINT"{WHT}{HOME}{ 6 SPAZl}FINE GIOCO{ 5 SPAZI}" 




: rem 

73 

1 580 

PRINT"{YEL}{GIU'}{ 4 SPAZI}PREMI UN TASTO" 

: rem 

249 

1 590 

GETA$:IFA$ = ""THENl 5 90 

: rem 

1 93 

1 600 

PRINT"{CLR}":GOTOl 1 90 

: rem 

1 05 

1 61 0 

REM 

: rem 

1 72 

1 620 

XR=INT(RND(1)*21):XB=INT(RND(1)*21) 

: rem 

31 

1 630 

RETURN 

: rem 

1 70 

1 640 

REM 

: rem 

1 75 

1 650 

DATAI 20,1 69,78,1 41 ,20,3,169,3,141 ,21 ,3,88 

: rem 

6 

1 660 

DATA96,0,0,0,0,0,169,0,141 ,1 9,1 45,1 69,1 27,1 41 




: rem 

1 88 

1 670 

DATA3 4,! 45,1 73,17,145,41,4,141,73,3,1 73 

: rem 

1 65 
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1 6 80 DATAI 7,1 45,41 ,8,141, 74,3,173,17,145,41,16,141 

:rem 203 

1 690 DATA75,3,1 73,32,1 45,41 , 1 28,1 41 ,76,3,1 73 :rem 172 
1 70 0 DATAI 7,1 45,41 ,32,141 ,77,3,169,255,141 ,34,145 

:r em 156 

1710 DATAI 69,1 28,1 41 ,19,145,76,1 91 ,234,0,0,0,0,7167 

:rem 254 

1 72 0 REM :r em 174 

1 73 0 DATA251 ,130,130,250,10,10,251,0,0,0,0,0,0,0,0,0,239, 
8,8,8,8,8,239,0 :rem 190 

1740 DATA190,162,162,190,164,162,162,0 :rem 125 

1 7 50 DATA248,1 28,1 30,224,1 30,1 28,248,0,1 38,1 36,1 38,250,1 3 
8,138,138,,0,0,0,0,124,0,0,0,0 :rem 189 

1 7 60 DATAI 6,1 6,56,40,56,1 2 4,1 08,68,0,0,7,62,236,62,7,0 

: rem 139 

1770 DATA34,54,62,28,20,28,8,8,0,224,124,55,124,224,0,0 

: rem 179 

1780 DATA66,36,24,60,24,36,66,0,145,66,36,1,128,36,66,137 

:rem 53 

1790 DATA60,66,165,153,153,165,66,60 :rem 45 

1 800 DATAO,0,0,16,0,0,0,0 : rem 206 


Duello 



3K RAM 


Saprai certamente che, molto tem¬ 
po fa, i gentiluomini usavano lava¬ 
re le offese col sangue, sfidandosi 
l'un l'altro a singoiar tenzone se ri¬ 
tenevano che il proprio onore fos¬ 
se stato macchiato. Il soggetto di 
questo gioco è proprio il duello al¬ 
la pistola: ti trovi nei panni di uno 
dei duellanti, e devi cercare di feri¬ 
re il tuo avversario (controllato dal 
VIO prima che sia lui a colpirti. Usa 
i tasti [A] e [Z] per alzare ed abbas¬ 


sare la mira, e spara con [F7J; sei il 
primo a far fuoco, ma ogni volta 
che manchi il bersaglio il tuo avver¬ 
sario cerca a sua volta di centrarti. 
Il gioco termina quando uno dei 
due avversari riesce ad aggiudicar¬ 
si 15 duelli. Se esci vincitore, ti vie¬ 
ne attribuito un punteggio che di¬ 
pende da quante volte sei stato 
ferito e dal numero di colpi andati 
a vuoto. 


10 SN= 2 56 *PEEK(648) :CO=(37888 + 4*(PEEK(36866)ANDl28) )-SN:P 
OKE36879,92:PRINT"{CLR}"; : rem 13 

20 PRINT"{GRN}**********************";:F0RI=lT021:PRINT"* 
DUELLO*DUELLO*DUELLO*";:NEXT : rem 188 
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3 0 PRINT"*********************"; :POKESN+CO+505,5:POKESN+5 
05,42:CH=5120 :rera 249 

40 IFPEEK(642)<18THENPOKE56,20 :POKE52,20 :POKE55,0 :POKE51 , 
0 :POKE643,0:POKE644,20 : rem 176 

50 SH = 0:W=0:DS = 0:OS = 0:MY=INT(RND(1)*40)-20 :rem 206 

60 FORI = 0TO204 7 :POKECH+I,PEEK(32768 + 1) :IFI/8=INT(1/8)THEN 
POKE36879,1/8 :rem 232 

70 NEXT:POKE36879,220 :POKE36869,PEEK(36869)ORI 3 :rem 16 
80 FORX = 0TO7:FORY=1T09: READA:POKECH+70* 8+Y* 8+X,A :NEXTY,X 

:rem 93 

90 FORX=0TO7:FORY=1T02:READA:POKECH+64*8+Y*8+X,A:NEXT:NEX 
T :rem 246 


100 FORX= 0TO7 :FORY =1T02:READA:POKECH+79*8+Y*8+X,A:NEXT:NE 
XT : rem 36 

1 1 0 M$ = "{BLK}A{GIU’ }{SIN}B{GRN}":N$ = "{BLK}P{GIU' }{SIN}Q 
{GRN}":T$ ="{ 2 H}I{GIU'}{ 3 SIN}JKL{GIU'}{ 3 SIN}MNO 
":SN=256*PEEK(6?8) :rem~T7l 

120 S0$ = "CDE[<T>] [<@>]RF*CDE[<T>] [ <@> ]RF*CD":S1$ = " 

{ 20 *'}'": S 2$ = " C*FR [ < @ > ] [ <T> ] EDC*FR [ < <3 > ] [<T>] EDC* ” 

:rem 56 

1 30 POKE36879,2 20 :POKE368 78,80 :PRINT"{CLR}{BLK}{RVS} 

{ 7 DES} DUELLO {OFF}{GRN}"; :rem 92 

140 POKE646,13:PRINT"{HOME}{GIU'} "T$"{SU}{SIN}"T$"{SU} 

{DES}"T$"{ 4 SU}"T$; : rem 42 

150 PRINT"{SU}{ 2 DES}"T$"{SU}{DES}"T$"{ 3 SIN}"T$"{SU} 

{ 4 SIN}"T$"{ 2 SU}{ 10 SIN}"T$; :rem 163 


1 60 

PRINT"{HOME}{ 5 GIU'}"T$"{SU}{SIN}"T$"{GIU 

'} 



{ 14 DES}"T$"{ 3 SU}"T$"{ 3 GIU’}{ 2 SIN}" 

T$ " { 2 

su} 


{ 15 DES}"T$ 

: rem 

1 90 

1 70 

PRINT"{HOME}{ 12 GIU'}{BLK}"M$"{SU}{ 20 DES}"N$; 




: rem 

1 5 

1 80 

PRINT"{HOME}{ 18 GIU'}{BLU}SEI IL DUELLANTE DI" 




: rem 

1 1 1 

1 90 

PRINT"SINISTRA. CERCA DI" 

: rem 

241 

200 

PRINT"COLPIRE L'AVVERSARIO." 

: rem 

20 

210 

PRINT"USA {RVS}A{OFF} - {RVS}Z{OFF} PER MIRARE 



{ 2 SPAZI}E {RVS}F7{OFF} PER FAR FUOCO."; 

: rem 

1 5 

220 

PRINT"{HOME}{ 17 GlU'}{RVS}TU :{ 5 SPAZI}{ 

5 SIN}" 

DS ; T 


AB(51)"AVVERSARIO:{ 4 SPAZI}{ 4 SIN}"OS; 

: rem 

208 

230 

PRINT"{HOME}{GIU'}"TAB(35)"{RED}COLPI:{ 3 

SPAZI} 



{ 3 SIN}"RIGHT$(STR$(SH),LEN(STR$(SH))—1)" 

{OFF}" 




: rem 

1 51 

240 

A=PEEK(197):IFA=64THEN240 

: rem 

1 61 

250 

IFAOl 7ANDAO33ANDAO63THEN240 

: rem 

249 

260 

IFA=17THENMY=MY+1:GOT0410 

: rem 

41 

270 

IFA=33THENMY=MY-1:GOTO410 

: rem 

42 

280 

IFAO63THEN240 

: rem 

1 8 

290 

SH=SH+1 

: rem 

106 


300 PRINT"{HOME}{GIU'}{RED}{RVS}"TAB(41)RIGHT$(STR$(SH),L 
EN(STR$(SH))-1) :SH$ = S1$ :IFMY> = 2THENSH$=S0$ :rem 206 
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31 0 

320 

330 

340 

350 

360 

370 

380 
390 
400 
41 0 
420 
430 
440 
450 

460 

470 

480 

490 

500' 
51 0 

520 

530 

540 

550 

560 

570 

580 

590 

600 


61 0 

620 

630 

640 

650 


PRINT"{HOME}{ 12 GIU'}{DES}{WHT}"; :IFMY<=-2THENSH$ = S2 
$ : r em 1 8 8 

FORI = ITOLEN(SH$) :PRINTMID$(SH$,I,1) ; :IF(I = 40RI = 12)AND 
SH$=SO$THENPRINT"{SU}"; :rem 71 

IF(I = 50RI = 13)ANDSH$ = S2$THENPRINT"{GIU'}"; :rem 128 
NEXT:PRINT"{HOME}{ 12 GIU'}{DES}{WHT}"; :rem 29 

FORI = lTOLEN(SH$) :PRINT" "; :IF(I = 40RI = 12)ANDSH$=S0$THE 
NPRINT"{SU}"; : rem 174 

IF(I=50RI=13)ANDSH$=S2$THENPRINT"{GIU '}"; :rem 131 
NEXT:SH$ = "":POKE3 68 7 8,95:FORX = 250TO24 5STEP-1 :POKE3687 


4,X :FORT=0TO2:NEXT 
POKE36874,0:NEXT:POKE36878,80 
IFMY< 2ANDMY>-2THENW=1 :GOTO600 
GOTO440 

IFMY<-20THENMY=-20 , 

IFMY> 2 0THENMY =20 
GOTO240 

FORT=OTOl00 :NEXT:Y=INT(RND(1)*50)-2 5 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


1 80 
1 84 
82 
1 01 
54 
223 
1 02 
1 30 


SH=SH+1:PRINT"{HOME}{GIU 1 }{RED}{RVS}"TAB(41)RIGHT$(ST 
R$(SH),LEN(STR$(SH))-1):SH$=S1$ :rem 239 

IFY>=3THENSH$=S2$ :rem 4 

PRINT"{HOME}{ 12 GIU'}{ 21 DES}{WHT}"; :IFY<=-3THENSH$ 
= LEFT$(S0$ ,LEN(S0$)-1) : rem 186 

FORI=LEN(SH$)TOlSTEP-1 : rem 102 

PRINT"{SIN}"MID$(SH$,I,1)"{SIN}";:IF(I=50RI=13)ANDSH? 
= LEFT$(SO? ,LEN(S 0$)-1)THENPRINT"{GIU'}"; :rem 42 

IF(I=60RI=14)ANDSH$=S2$THENPRINT"{SU}"; :rem 1 

NEXT:FORT=0TO40:NEXT:PRINT"{HOME}{ 12 GIU'}{ 21 DES} 
{WHT}"; : rem 194 

FORI=LEN(SH$)TOlSTEP-1 :PRINT"{SIN} {SIN}"; : rem 225 

IF(1 = 50RI = 13)ANDSH$ =LEFT$ (S0$,LEN(S0$)-1)THENPRINT" 


{GIU'}"; 

IF(I=60RI=14)ANDSH?=S2?THENPRINT"{SU}"; 
NEXT 


rem 

rem 

rem 


1 29 
5 

21 7 


SH? = "":POKE3 6878,9 5 :FORX = 253T0249STEP-1 :POKE36874, X : F 


ORT=0TO2:NEXT 

POKE36874,0:NEXT:POKE36878,80 
IFY< 3ANDY>-3THEN60 0 
GOTO2 4 0 


: rem 
: rem 
: rem 
: rem 


67 
1 85 
131 
1 09 


IFW=1THENDS=DS+1:PRINT"{HOME}{ 17 GIU'}{ 3 DES}{BLU} 
{RVS}"DS;"{HOME}{ 13 GlU'}{DES}{OFF}"; :FORI = 0TO20 

: rem 115 

IFW=OTHENOS=OS+1:PRINT"{HOME}{ 17 GIU'}{ 18 DES}{BLU} 
{RVS}"OS; : rem 77 

IFW=0THENPRINT"{HOME}{ 13 GIU'}{ 12 DES}{OFF}"; : FORI = 
0TO20 : rem 224 

PRINT"VINCITORE{ 9 SIN}";:FORT=0TO10 :NEXT : rem 60 
PRINT" {RVS}VINCITORE{OFF} { 9 SIN}";: FORTETO! 0 : NEXT : N 
EXT :rem 90 

FORX=1T04:POKE368 7 8,95:POKE36876,229:FORT = OTOl 00 :NEXT 
:POKE368 7 6,0:POKE3 6875,240 :rem 12 


10 



660 


670 

680 

690 

700 

71 0 
720 
730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 


FORT=OTOl00 :NEXT:POKE36875,0 :POKE36878,80:NEXT 

:rem 73 

TS=TS+SH:IFOS = l50RDS=15THENFORT=lTOl 000 :NEXT:GOTO730 

: rem 153 


SH=0:W=0:MY=INT(RND(1)*40)-20 :PRINT"{HOME} { 16 GIU'} 

{ 4 DES}{PUR}"; : rem 249 

PRINT" PREMI SPAZIO { 14 SIN}"?:FORT=0TO50:NEXT 

:rem 247 

PRINT"{RVS} PREMI SPAZIO {OFF}{ 14 SIN}"; :FORT=0TO50: 
NEXT:GETX$:IFX$=" "THEN720 :rem 183 

GOTO69 0 : rem 112 

GOTO!30 : rem 102 

IFOS=l5THENPRINT"{CLR}{GIU'}{BLK}{ 5 DES}{RVS} HAI PE 
RSO! ":GOTO760 :rem 209 

PRINT"{CLR}{GIU'}{BLK}{ 5 DES}{RVS} HAI VINTO! " 

: rem 198 

PRINT"{ 2 GIU'} PUNTEGGIO:"INT(((DS-OS)*1E4)/TS) 

: r era 10 5 

PRINT"{ 3 GIU'} PREMI {RVS}G{OFF} PER GIOCARE 
{ 9 SPAZI}{GIU'}{RVS}S{OFF} PER SMETTERE" :rem 66 
GETX$:IFX$="S"THENSYSl024 :rem 8 

IFX$ = "G"THENRUN : rem 150 

GOTO770 : rem 119 

DATA3,1 5,0,1 27,255,255,0,60,8,3,255,1 92,63,255,1 88,0, 
60,0,1 5,255,240,55,247,248,0 : rem 127 

DATA60,138,15,255,248,31,63,248,0,60,40,126,255,126,3 
1,60,240,0,60,138,127,255,254 :rero 179 

DATA24,60,48,0,60,162,255,255,252,0,60,0,0,60,160,127 
,223,252,0,60,0,0,60,32 :rem 94 

DATA248,112,112,112,112,112,119,80,38,80,250,80,254,8 
0,112,120 :rem 202 

DATA31 ,14,14,14,14,14,238,10,100,10,95,10,127,10,14,3 
0 :rem 41 


Tank attack 


CI6&-pius/4 

Joystick 


Si tratta di un veloce gioco d'azio¬ 
ne, in cui l'obiettivo è evitare che 
il tuo carro armato (tank) sia colpi¬ 
to dai missili lanciati da postazioni 
nemiche, nascoste nella foresta vi¬ 
sualizzata sullo schermo. Usando 


un joystick nella porta 1 comandi 
lo spostamento del tank e il canno¬ 
ne antimissile; premendo il pulsan¬ 
te spari nella direzione in cui è ri¬ 
volto il joystick. Quando colpisci 
un missile il tuo punteggio aumen- 
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ta e lo schermo diviene più scuro,- nulla, passi ai livello successivo (il 

se riesci a sopravvivere anche numero del livello viene sempre in¬ 

quando la visibilità è pressoché dicato accanto ai punti). 


10 V0L8:SC=3072:CL=2048:BR=7:COLORO,2,BR:Y=12:X=0 

:rem 178 

20 PRINT"{CLR}{GIU'} [<3>] { 3 DES} [<A>] [<R>] [<S>]U*I[<R>] 
[<R>] [<R>]U{ 4 SPAZl}U*I[<A>][<R>][<S>][<A>][<R>] 

[<S>] U*IU*I [ <R> ] U 11 : rem 222 

30 PRINT"!' 3 DES} - [ <Q> ] * [<W> ]-M- [ <Q> ] [ <E> ] I { 3 SPAZI} 

[<Q>] M<W> ] ^{ 2 SPAZlT- [<Q>]*[<W>M 2 SPAZI} [<Q>] 
[<E>]I/' : rem 42 

40 PRINT"{ 3 DES} [<E>] [<E>] [< 2 E>] [<E>] [<E>] J 

{ 3 SPAZI}[<E>] [<E>] [<E>]{ 2 SPAZI}[<E>] [<E>] [<E>] 

J*K [<E>] J" :rem 114 

50 PRINT"{ 2 GIU'}{ 15 DES}[<7>]{FLASH ON}ISTRUZIONI" 

:rem 71 

60 PRINT"{ 2 GIU'}{ 5 DES}{BLK}{RVS}W{OFF}{ 4 SPAZI}{RED} 
TANK":PRINT"{GIU'}{ 5 DES}{BLK}Q{ 4 SPAZI}{PUR}MISSILE 
NEMICO (BERSAGLIO)" :rem 163 

70 PRINT"{GIU'}{ 5 DES}{BLK}*{ 4 SPAZI}{RED}MINA 

{ 12 SPAZI}(EVITARE)" :rem 54 

75 PRINT"{GIU 1 }{ 4 DES}{GRN}A{BLU}/[<1>][<£>]{ 3 SPAZI} 

{BLU}ALBERO/SIEPE" :rem 145 

90 PRINT" { 2 GIU'} {BLK} { 7 DES}U{ 8 *}_l{ 6 SPAZI }U 

{ 8 M_I" :rem 243 

100 PRINT" { 7 DES}-JOYSTICK--{ 6 SPAZI}- [<1 >] RETURN{BLK} 

:rem 2 

110 PRINT" { 7 DES}-{ 8 SPAZI }-_{ 6 SPAZI}-! 2 SPAZI }PER 

{ 3 SPAZI}-" : rem 137 


1 20 

PRINT"{ 7 DES}-{ 2 SPAZl}N. 1{ 2 SPAZl}-{ 

6 SPAZI} 

-IN 


IZIARE-" 

: rem 

1 71 

1 30 

PRINT"T 7 DES}J{ 8 *}K{ 6 SPAZl}j{ 8 *}K" 

: rem 

90 

1 40 

GETA$:IFASC(A$)<>13THEN140 

: rem 

210 

1 50 

GOSUB710 :GOSUB660 

: rem 

4 

1 60 

TB=PEEK (SC + 4 0*Y+X) :TC = PEEK(CL+40*Y+X) 

: rem 

1 79 

1 70 

POKESC+40*Y+X,215 :POKECL+40*Y+X,0 

: rem 

1 59 

1 80 

DD=JOY(1):D=DDANDl27 

: rem 

1 30 

1 90 

IFF$="F"THENGOSUB450 

:rem 

1 62 

200 

E=E+1 :1FE< 8-LVTHEN3 4 0 

: rem 

204 

210 

E= 0 

:rem 

69 

220 

POKESC+40*EY+EX,EB:POKECL+40+EY+EX,EC: SOUND1 ,1000- 

ABS 


(EX-X)-ABS(EY-Y),2 

: rem 

36 

230 

IFEY=YANDABS(EX-X)>1THENEY=EY+INT(RND(0)*3 

-1) : GOTO26 0 



: rem 

29 

240 

IFEY<YTHENEY=EY+1 

: rem 

92 

250 

IFEY>YTHENEY=EY-1 

: rem 

97 


260 IFEX=XANDABS(EY-Y)>1THENEX=EX+INT(RND(0)*3-1):GOTO290 

:rem 33 
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270 

IFEX<XTHENEX=EX+1 

: rem 

91 

280 

IFEX>XTHENEX=EX-1 

: rem 

96 

290 

IFEY< 2THENEY= 3 : 

: rem 

1 73 

300 

IFEY>24THENEY=24 

: rem 

21 2 

310 

IFEX<0THENEX=1 

: rem 

1 02 

320 

IFEX>39THENEX=38 

: rem 

223 

330 

GOSUB670 

: rem 

1 79 

340 

IFD=0ORF$ = "F"THENl80 

: rem 

1 1 3 

350 

POKESC+40*Y+X,TB:POKECL+40*Y+X f TC 

: rem 

4 

360 

IFD = 1THENY=Y-1 :SOUND3,400,1 0 :IFY<2THENY=2 

:rem 

32 

370 

IFD = 5THENY=Y+1 :SOUND3,380,1 0 :IFY>24THENY = 24 

s rem 

1 48 

380 

IFD= 7THENX=X-1 :SOUND3,420,10 :IFX<0THENX=0 

: rem 

34 

390 

IFD=3THENX=X+1:SOUND3,440,10:IFX>39THENX=39 

2 rem 

1 53 

400 

IFDD >128ANDF$=""THENF$="F":QD=D:SX=X:SY=Y:TS 

= 02GB 

= 21 5 


:GC=0:SOUND3,800,20 

2 rem 

71 

410 

TB=PEEK(SC+40*Y+X):TC=PEEK(CL+40*Y+X):IFTB=42THEN780 



2 rem 

1 29 

420 

IFTB=43THENTB=GB:TC=GC 

2 rem 

1 30 

430 

POKESC+40*Y+X,215:POKECL+40*Y+X,0 

2 rem 

1 58 

440 

GOTOl80 

: rem 

1 06 

450 

POKESC+40*SY+SX,GB:POKECL+40*SY+SX,GC 

2 rem 

55 

460 

IFQD= 80RQD=1ORQD=2THENSY=SY-1 :IFSY<2THENSY=2 

:GOTO640 



2 rem 

21 6 

470 

IFQD=20RQD=30RQD=4THENSX=SX+1:IFSX>39THENSX= 

39 : GOTO64 


0 

2 rem 

71 

480 

IFQD=40RQD=50RQD=6THENSY=SY+1:IFSY>24THENSY= 

24 : GOTO64 


0 

2 rem 

70 

490 

IFQD=60RQD=70RQD=8THENSX=SX-1:IFSX<0THENSX=0 

:G0T064 0 



2 rem 

221 

500 

GB=PEEK(SC+40*SY+SX):GC=PEEK(CL+40*SY+SX) 

2 rem 

227 

51 0 

IFGB= 215THENGB=TB:GC = TC 

: rem 

1 66 

520 

IFGB081 ANDEB043THEN61 0 

2 rem 

1 47 

530 

PRINT"{YEL}":IFBR=7THENPRINT"{BLK}" 

2 rem 

1 04 

540 

SOUND3,1000,1 5 :PT=PT+1 :PRINT"{HOME}{GIU' }PUNTI :"; 

PT: G 


B=42:GC=0:GOSUB660 

2 rem 

1 80 

550 

PU = PU+1 :1FPU = LV+1THENBR=BR-1 :PU = 0 

2 rem 

1 00 

560 

IFBR>0THEN600 

2 rem 

241 

580 

BR=7:COLOR0,2,BR:LV=LV+1:IFLV>8THENLV=8 

2 rem 

234 

590 

FORI=1TO500:NEXT:PRINT"{CLR}{ 10 DES}{ 3 GIU 

'}{BLK}LI 


VELLO";LV;"COMPLETATO" 

2 rem 

21 9 

595 

FORI=lT02000:NEXT:GOTOl50 

: rem 

40 

600 

COLORO,2,BR:GOTO640 

: rem 

1 1 2 

610 

POKESC + 40*SY+SX,43:POKECL+40 *SY+SX,0 

2 rem 

1 85 

620 

TS=TS+1:IFTS>10THEN640 

: rem 

87 

630 

RETURN 

:rem 

1 21 

640 

POKESC+40+ SY+SX,GB :POKECL+40 * SY+SX,GC 

2 rem 

56 

650 

F$ = "": RETURN 

2 rem 

1 60 

660 

EX=INT(RND(0)*40):EY=INT(RND(0)*22+2) 

2 rem 

70 

670 

EB=PEEK(SC+40*EY+EX):EC=PEEK(CL+40*EY+EX) 

: rem 

1 75 

680 

IFEX=XANDEY=YTHEN780 

2 rem 

52 
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690 POKESC+40*EY+EX,81 :POKECL+40*EY+EX,0 :rem 139 

700 RETURN :rem 119 

710 PRINT"{CLR}{BLK}{ 13 DES}{RVS} TANK{ 2 SPAZI}ATTACK " 

:rem 253 

720 PRINT"{HOME}{GIU'}PUNTI :";PT;;LV+1 :rem 30 

730 A= INT(RND(0)*50 + 50-6*LV) :rem 7 

740 FORI = 1T0A:B=INT(RND(0)*920 + 8 0) :POKESC+B,65 :POKECL+B,5 
3 :NEXT :rem 68 

750 A=INT(RND(0)*30+30-3*LV) :rem 2 

760 FORI=1T0A:B=INT(RND(0)*920+80):POKESC+B,104:POKECL+B, 
88:NEXT : rem 120 

770 RETURN :rem 126 

780 POKESC+40*Y+X,102:FORI = 1TOT 5:COLORO,I :SOUND3,80 0+1 0*1 
,9 :FORJ = lTO50:NEXTJ:NEXTI :rem 123 

790 COLORO,2,7:PRINT"{CLR}{ 4 GIU'}{ 10 DES}{FLASH ON} 

{RED}F I N E{ 4 SPAZI}G loco" :rem 69 


800 

PRINT"{ 3 GIU'}{ 14 DES}{BLK}PUNTI";PT;"/" 

;lv+ì 




: rem 

24 

81.0 

PRINT"{ 2 GIU'H 13 SPAZI}ANCORA (S/N) ?" 

: rem 

1 60 

815 

POKE239,0 

: rem 

1 99 

820 

GETKEYA$:IFA$<>"S"THENEND 

: rem 

1 3 

830 

RUN 

: rem 

1 44 


CI6k- plus/4 

Typins derby 


Molto spesso le riviste che pubbli¬ 
cano programmi per i computer 
più diffusi, riportano listati molto 
lunghi che richiedono molto tempo 
per essere trascritti, specialmente 
per chi usa solo poche dita nella 
battitura. 

Questo simpatico programma oltre 
ad insegnare come battere con tut¬ 
te e dieci le dita, utilizza un diver¬ 
tente metodo di esercitazione che 
rende facile e interessante l'ap¬ 
prendimento. Infatti, dopo aver 
mostrato quali tasti deve premere 
ciascun dito delle mani, visualizza 
una pista da corsa dove trottano 


due cavalli: uno (quello nero) è 
spostato di tanto in tanto dal com¬ 
puter, l’altro viene mosso di una 
posizione ad ogni tasto premuto 
correttamente sulla tastiera. 

Per sapere quali tasti premere, 
vengono visualizzate in fondo allo 
schermo 3 righe di caratteri. 
Partendo dall'inizio il giocatore do¬ 
vrà premere i tasti guardando la se¬ 
quenza. 

Ogni lettera della sequenza battu¬ 
ta correttamente cambia colore e 
si può passare alla lettera successi¬ 
va. 

In questo gioco sono disponibili 
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13 livelli di difficoltà selezionò bili 
all'inizio della partita. 

Quando si vince la corsa vengono 
conquistati 10 punti. 


Se si riesce a battere il cavallo del 
CI 6 per 23 volte , si passa automa¬ 
ticamente al livello successivo. 

E allora... buona battitura! 


1 0 

COLORO,2,5:COLOR4,2,5:VOL8 

: rem 

222 

20 

PRINT"{CLR}{ 8 GIU'}{ 14 DES}{RVS}{RED}TYPING 

1 DERBY 


{OFF}{BLK}" 

: rem 

133 

30 

PRINT"{ 5 GIU'}{ 11 DES}ISTRUZIONI{ 2 SPAZI}(S/N) 

?" 

• 



: rem 

72 

40 

GETKEYA$ 

: rem 

146 

50 

IFA$ = "S"THENGOSUB8 50 

: rem 

1 21 

60 

PRINT"{CLR}{ 10 GIU'}{ 10 DES}LIVELLO{ 2 SPAZI}(1- 

-13)" 


; :INPUTLl 

: rem 

66 

70 

IFL1<TORLI>13THEN60 

: rem 

53 

80 

C(0)=2208:C(l)=2328:C(2)=2448:H=3232:Hl=3272: 

J=3672 


* 

: rem 

41 

90 

L = Ll:S=(220* (Li-1) ) + (10*- (Li>1) ) 

: rem 

229 

1 00 

PRINT"{CLR}{ 11 GIU'}{ 5 DES}VELOCITA' DEL COMPUTER ( 


5-50)"SPC(58)" (50 = LENTO)"; 

: rem 

1 79 

1 1 0 

INPUTRl:R=Rl 

: rem 

241 

1 20 

IFR<50RR> 50THEN10 0 

: rem 

59 

1 30 

GOTO 17 0 

: rem 

1 01 

1 40 

POKE23 9,0 :PRINT"{CLR}{ 10 GIU'}{ 9 DES}VUOI 

CONTINUAR 


E (S/N)?" 

: rem 

1 66 

1 50 

GETX$:IFX$ = ""OR(X$< >"N"ANDX$< >"S")THEN1 5 0 

: rem 

87 

1 60 

IFX$="N"THENEND 

: rem 

119 

1 70 

M=0:N=0: Ni=0 :IFS>2 20*LTHENL = L+1 :Ll=Ll+l:R=Rl 

:IFL>13TH 


ENPRINT"{CLR}F INE !":END :rem 232 

1 80 PRINTCHR5(147) :COLOR4,4,4 : COLORO,2 :PRINT"{SU}{BLK}PUN 
TI:{RVS}"S:IFL1>9THEN200 :rem 225 

190 PRINTTAB(28)"{SU}{OFF} LIVELLO:{RVS}"Li"{OFFG0T021 
0 : rem 220 

200 PRINTTAB(28)"{ 2 SU} LIVELLO :{RVS}"Li"{OFF}":rem 205 
210 FORI = 3192T03231 :POKEI,114:POKEI-1 024,0:NEXTI: rem 115 
220 FORI = 3312T03351 :POKEI,91:POKEI-1 024,0:NEXTI :rem 69 
230 F0RI = 3432T03471 :POKEI#91 :POKEI-1 024,0 :NEXTI : rem 76 
240 FORI = 3 552T03591 :POKEI,113:POKEI-1 024,0:NEXTI: rem 126 
250 POKE3550,1 03 :POKE2526,0 :POKE351 0,95:POKE248 6,66 

: rem 136 

260 FORI = 1TO 3*L-2 :READD$:NEXTI :RESTORE:PRINT"{HOME} 

{ 15 GIU'}[<7>]"D$ : rem 222 

27 0 FORI = l T03*L-1 : READD$ : NEXTI : RESTORE: PRINT" {HOME} 

{ 16 GIU'} [<7>]"D$ ; rem 239 

280 FORI=lT03*L:READD$:NEXTI:RESTORE:PRINT"{HOME} 

{ 1 7 GIU'}[<7>]"D$ : rem 163 

290 IFL=7THENPOKE369 4,44 : rem 178 

300 IFL=8THENF0RI=0T06STEP2:POKE3 6 72 + I, 58 :NEXTI :rem 31 
310 IFL= 8THENPOKE371 1 ,44:POKE3778,58:POKE3780,58:rem 81 
320 IFL=9THENPOKÉ3737 / 58 :rem 177 


15 



330 FORI = 0TO2:FORT=0TO39:POKEC(I)+T f 66 :NEXTT:NEXTI:POKEH, 
94 :rem 47 

340 FORI = 0TO2:FORT=0TO3 9 :POKEC(I)+ 40 + T,0 :NEXTT:NEXTI:POKE 



HI ,94 








« 

* 

rem 

1 80 

350 

IFN=0ANDM=0ORS= 

(300* 

L)+10THENGOSUB840 : 

rem 

209 

360 

IFM=390RM=159THENM1= 

M:M= 

: M+80 


a 

€ 

rem 

1 95 

370 

IFPEEK (Hi +M+1 ) 032THEN1 40 



« 

i 

rem 

1 43 

380 

IFTI>T+RTHENPOKEHl+Ml,32 

:POKEHl+M,32 

:M=M+1:POKEHl+M, 9 


4 :T=TI 









rem 

1 54 

390 

GETA$:IFA$= 

""THEN360 





■rem 

88 

400 

IFASC(A$)=PEEK(J+Nl)THEN420 




•rem 

28 

41 0 

IFASC (A$) OPEEK (J+Nl ) +64THEN360 



rem 

242 

420 

POKE2648+N1 

, 66 : Ni=Nl+1 : IFN=390RN=159THENN2 = N: 

N=N+81 










« 

rem 

24 

430 

POKEH+N 

, 32:POKEH+N2, 

32 : N=N+1 

: IFPEEK (H+N) 0 32THENS 

= S + 1 


0:R=R-1 

:GOTOl40 







‘rem 

1 1 4 

440 

POKEH+N 

, 94 : GOTO3 60 






rem 

45 

450 

DATAFRF 

FTF 

FGF 

FBF 

FVF 

FRF 

FTF 

FGF 

FBF FVF 

rem 

53 

460 

DATAFRF 

FTF 

FGF 

FBF 

FVF 

FRF 

FTF 

FGF 

FBF FVF 

rem 

54 

470 

DATAFRF 

FTF 

FGF 

FBF 

FVF 

FRF 

FTF 

FGF 

FRTB 

rem 

1 81 

480 

DATADED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

DED 

DCD FRF 

rem 

5 

490 

DATAFTF 

FGF 

FBF 

FVF 

DED 

DCD 

FRF 

FTF 

FGF FBF 

:rem 

1 7 

500 

DATAFVF 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

FDEV 

rem 

1 43 

510 

DATASWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF SWS 

rem 

1 29 

520 

DATASXS 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

SWS SXS 

rem 

131 

530 

DATADED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

SWS 

SCDX 

rem 

1 86 

540 

DATAAQA 

AZA 

SWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF AQA 

:rem 

89 

550 

DATAAZA 

SWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF 

AQA AZA 

rem 

99 

560 

DATASWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF 

AQA 

AZQW 

:rem 

239 

570 

DATAJUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA 

SWS 

SXS DED 

rem 

162 

580 

DATADCD 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA 

SWS SXS 

rem 

161 

590 

DATADED 

DCD 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

JUQX 

rem 

224 

600 

DATARIK 

KIK 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA SWS 

rem 

143 

610 

DATASXS 

DED 

DCD 

KIK 

KIK 

FRF 

JUJ 

JYJ 

JNJ JMJ 

rem 

1 24 

620 

DATAAQA 

AZA 

SWS 

SXS 

DED 

DCD 

KIK 

KIK 

KIZD 

rem 

228 

630 

DATALOL 

L.L 

KIK 

KIK 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ AQA 

rem 

102 

640 

DATAAZA 

SWS 

SXS 

FTF 

LOL 

L.L 

KIK 

KIK 

JUJ JYJ 

rem 

1 72 

650 

DATAJHJ 

JNJ 

JMJ 

AQA 

AZA 

SWS 

SXS 

FTF 

LZJM 

rem 

27 

660 

DATA;P; 

?/; 

LOL 

L.L 

KIK 

KIK 

JUJ 

JYJ 

JHJ JNJ 

rem 

32 

670 

DATAJMJ 

AQA 

AZA 

SWS 

SXS 

f r r 

;/; 

LOL 

L.L KIK 

rem 

57 

680 

DATAKIK 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA 

SK;Q 

rem 

229 

690 

DATAAl1 

S 22 

D33 

F4 4 

F55 

J 66 

311 

K 88 

L99 ; 00 

rem 

1 57 

700 

DATAZl1 

X22 

C33 

V4 4 

V55 

N 66 

Al 1 

S22 

D33 F44 

rem 

188 

71 0 

DATAF55 

J 66 

J77 

K 88 - 

L99 

; 00 

ZÌI 

X22 

C3F5 

:rem 

77 

720 

DATASE SE SE SE 

SE 

VAI 

VAI 

VAI 

VAI 

VAI VAI 

rem 

235 

730 

DATA PIU' 

PIU ' 

PIU 1 

PIU' PIU' PIU' 

VELOCE VEL 












rem 

21 5 

740 

DATAOCE 

VELOCE VELOCE VINCI 

VINCI VINCI 

rem 

1 1 5 

750 

DATAE' SEMPRE E 

' SEMPRE 

E' SEMPRE PIU' DIFFI: 

rem 

21 3 

760 

DATACILE PIU' DIFFICILE 

PIU’ 

DIFFICILE PIU' 

rem 

1 7 

770 

DATADIFFICILE INSISTI INSISTI E 

VINCERAI 

rem 

1 9 
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780 DATASIAMO ARRIVATI SIAMO ARRIVATI AL PENULTI: rem 29 
790 DATAMO AL PENULTIMO LIVELLO.ANCORA L'ULTIMO :rem 230 
800 DATA SFORZO ANCORA L'ULTIMO SFORZO ANCORA :rem 45 
810 DATAQUESTO E' L'ULTIMO LIVELLO ; ORA DOVRESTI :rem 241 
820 DATAESSERE IN GRADO DI SCRIVERE IN MODO SPEDtrem 97 
830 DATAITO E SENZA ERRORI VINCENDO LA GARA.. :rem 148 
840 SOUND! ,900,1 00:FORT=lTOl 600:NEXT:RETURN :rem 184 

850 PRINT"{CLR}{GIU'}{ 13 DES}{RVS}{RED}TYPING DERBY{OFF} 
{BLK}" : rem 44 

860 PRINT"{GIU'}{ 2 DES}{RVS}{RED} INSEGNA A SCRIVERE CON 
LA TASTIERA {OFF}{RED}" :rem 9 

870 PRINT"{ 2 GIU'}{ 2 DES}{RVS} 1 {OFF}{WHT} IMPARA QUALI 
DITA USARE PER I VARI{ 6 SPAZI}TASTI{RED}" :rem 129 

880 PRINT"{GIU'}{ 2 DES}{RVS}2{OFF}{WHT} BATTI SENZA GUAR 
DARE SULLA TASTIERA{RED}" :rem 209 

890 PRINT"{GIU'}{ 2 DES}{RVS}3{OFF} ALL'INIZIO E' PIU' IM 
PORTANTE ESSERE{ 4 SPAZI}PRECISI CHE RAPIDI{RED}" 

:rem 101 


900 PRINT"{GIU'}{ 2 DES}{RVS}4{OFF}{WHT} INCITA IL CAVALL 



O NERO 23 VOLTE E{ 7 SPAZI}MUOVILO 

: rem 

1 75 

91 0 

PRINT"AL SUCCESSIVO LIVELLOPRINT"{ 3 GIU' 

} 



{ 11 DES}{RVS}{BLK} PREMI UN TASTO {OFF}" 

: rem 

114 

920 

GETKEYF$ 

: rem 

206 

930 

PRINT"{CLR}":COLOR4,10,3 : COLORO,2,4 

: rem 

1 28 

940 

PRINT"{CLR} {WHT}":PRINT"{ 9 SPAZI}{RVS} Q 

{OFF} 


950 

{ 16 SPAZI}{RVS} Q " 

PRINT"{ 6 SPAZI}{RVS} Q[<M>] 3[<M>] Q {OFF} 

: rem 

1 05 

960 

{ 10 SPAZI}{RVS} Q[<M>T 8 [<M>] Q " 

PRINT"{ 6 SPAZI}{RVS} 2[<M>] E[<M>] 4 {OFF} 

: rem 

1 1 2 


{ 10 SPAZI}{RVS} 6 [<M>] I[<M>] 9 " 

: rem 

37 


970 PRINT"{ 3 SPAZI}{RVS} Q[<N>] W[<N>] [<2>]D{WHT}[<M>] 

5 {OFF}{ 10 SPAZI}{RVST 7[<N>] [<2>]K{WHT}[<M>] O 
[<M>] Q " : rem 145 

980 PRINT"! 3 SPAZI}{RVS} 1[<M>] [<2>]S{WHT}[<M>] C[<M>] 

R {OFF}{ 10 SPAZI}{RVS} Y[<M>] ,[<M>] [<2>]L{WHT} 

[<M>] 0 " : rem 96 

990 PRINT"{ 3 SPAZI}{RVS} Q[<M>] X[<M>]{ 2 SPAZI}[<M>] T 
[<M>] Q {OFF}{ 4 SPAZI}{RVS} Q[<M>] U[<M>]{ 2 SPAZI} 

[<M>] . [<M>] P " : rem 211 

1000 PRINT"{ 3 SPAZI}{RVS} [<2>]A{WHT}[<M>]{ 7 SPAZI} 

[<2>]F{WHT}[<M>]{ 3 SPAZI}{OFF}{ 4 SPAZl}{RVS} {BLK} 
S{WHT}[<M>] H{ 6 SPAZI}[<M>] [<2>]:{WHT} " :rem 163 

1010 PRINT"{ 3 SPAZI}{RVS} Z[<M>]{ 7 SPAZl}G[<M>] 

{ 3 SPAZI}{OFF}{ 4 SPAZI}{RVS} {BLK}P{WHT}[<M>] 

[<2>]J{WHT}{ 6 SPAZI} [<M>] / " :rem 126 

1020 PRINT"{ 3 SPAZI}{RVS}{ 10 SPAZI}V[<M>]{ 3 SPAZI} 

{OFF}{ 4 SPAZI}{RVS} {BLK}C{WHT}[<M>] M{ 10 SPAZI}" 

: rem 19 

1030 PRINT"{ 3 SPAZI}{RVS}{ 10 SPAZl}B{ 4 SPAZI}{OFF} 

{ 4 SPAZI}{RVS} {BLK}E{WHT}{ 2 SPAZl}N{ 10 SPAZI}" 

2 rem 181 
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1040 PRINT"{ 3 SPAZI}{RVS}{ 14 SPAZI}{OFF}£{ 4 SPAZI} 

[< * >1{RVS}{ 14 SPAZI}" ~ : rem 212 

1 050 PRINT"{ 3 SPAZI} [<*>] {RVS}{ 12 SPAZl}{OFF}£ 

{ 6 SPAZI}[<*>]{RVS}{ 12 SPAZI}{OFF}£" :rem 239 

1060 PRINT"{ 4 SPAZI}[<*>]{RVS}{ 10 SPAZlT{OFF}£ 

{ 8 SPAZI}[<*>]{RVS}{ 10 SPAZI}{OFF}£" “:rem 240 

1070 PRINT"{ 5 SPAZI}{RVS}{ 10 SPAZl}{OFF7{ 10 SPAZI} 

{RVS}{ 10 SPAZI}" ; rem 79 

1080 PRINT"{ 5 SPAZI}{RVS}{ 10 SPAZl}{OFF}{ 10 SPAZI} 

{RVS}{ 10 SPAZI}" : rem 80 

1090 PRINT:PRINT"{ 6 SPAZI}{RVS}SINISTRA{OFF}{ 13 SPAZI} 
{RVS}DESTRA" :r em 72 

1100 PRINTTAB(12)"SCHEMA DELLE DITA":PRINT"{GIU'} 

{ 12 SPAZI}{RVS}{BLK}BARRA SPAZIATRICE{OFF}" 

:rem 78 

1110 PRINT"{ 12 SPAZI}{RVS}[<2>]TASTI{ 2 SPAZI}PRINCIPALI 
(OFF)” :rem 61 


1 1 20 

PRINT"{GIU 1 }{ 

5 DES}{WHT}PREMI UN TASTO PER CONTINUA 


RE" ; 

: rem 1 

1 1 30 

GETKEYQ$ 

: rem 3 

1 1 40 

RETURN 

: rem 166 



: rem 0 


Schedario 

prima parte 



Con questa "utility" vogliamo an¬ 
dare incontro a tutti coloro che 
sentono l'esigenza di archiviare 
dati col C64, ma che non dispon¬ 
gono di un disk drive. SCHEDARIO 
possiede tutte le principali opzioni 
di un buon data-base, compresi 
tutti i tipi di ricerca e di ordinamen¬ 
to, e richiede come unica periferica 
il registratore; il suo unico limite è 
che, non potendo accedere sul na¬ 
stro ad ogni singola voce (cosa in¬ 
vece possibile lavorando su di¬ 
sco), l'intero archivio deve venir 
caricato in memoria all'inizio delle 


operazioni e risalvato alla fine, per 
cui le sue dimensioni sono limitate 
da quelle della RAM del C64. 

Il programma si divide in due parti, 
che vanno digitate e salvate una di 
seguito all’altra; la prima appare su 
questo numero, e la seconda verrà 
pubblicata la settimana prossima, 
assieme al resto delle istruzioni. 
Diamo innanzittutto alcune defini¬ 
zioni utili per facilitare, soprattutto 
a chi non abbia molta familiarità 
con i data-base; la comprensione 
di quanto diremo in questo artico¬ 
lo e in quello che seguirà. Si dice 
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"record" la singola voce de II'archi¬ 
vio; vengono poi definite "campi" 
le informazioni che compongono 
un record (ad esempio nome; Indi¬ 
rizzo, ecc. se si vuole costruire una 
rubrica). 

Passiamo ora alla prima parte delle 
istruzioni. Dopo aver caricato il 
programma n. 1 e aver dato il RUN 
avviene l'inizializzazione, che con¬ 
siste nel memorizzare alcune routi¬ 
ne in linguaggio macchina e pulire 
alcune aree di memoria. Appare 
poi un menù che propone la scelta 
tra creare un nuovo archivio e la¬ 
vorare su uno già esistente; in que¬ 
st'ultimo caso viene caricato auto¬ 
maticamente il programma n. 2. Se 
invece viene scelta la creazione, 
appaiono sullo schermo delle 
istruzioni che spiegano per sommi 
capi come costruire la mappa vi¬ 
deo dell'archivio, dopo di che 
compare lo schermo vuoto col cur¬ 
sore in alto a sinistra. Si può a que¬ 
sto punto, muovendosi coi tasti 
cursore, digitare nel formato che si 
desidera le descrizioni dei vari 
campi, con l'unica avvertenza di 
non usare i caratteri "*, e "$" 
che sono riservati alla definizione 
dei campi. 

Per identificare la posizione e la 
lunghezza di un campo alfanume¬ 
rico bisogna digitare tanti "*" 
quanti sono i caratteri desiderati; 
per i campi numerici si devono 
usare invece tanti "$" quante sono 
le cifre che si vogliono, e se il cam¬ 
po deve contenere numeri decima¬ 
li la posizione della virgola va indi¬ 
cata con Facciamo degli esem¬ 
pi: 

campo alfanumerico di 6 caratteri 

****** 


campo numerico di 5 cifre $$$$$ 
campo numerico di 3 cifre e 
2 decimali $$$&$$ 

Terminata l'operazione di costru¬ 
zione della videata, premendo FI 

10 schermo viene compilato, cioè 

11 programma ricava le informazio¬ 
ni per poterlo poi riprodurre. In 
questa fase viene segnalato un er¬ 
rore se: 

- il numero di descrizioni è maggio¬ 
re di 100 

- il numero di campi è maggiore di 
63 

- un campo numerico ha una defi- 
■ nizione errata 

- la lunghezza del record (somma 
delle lunghezze dei campi) supera 
i 255 caratteri. 

Dopo la segnalazione ricompare il 
cursore in modo che possano es¬ 
sere effettuate le correzioni. Quan¬ 
do la compilazione va a buon fine 
compare la domanda "Quanti 
campi chiave?". A questo punto 
apriamo una piccola parentesi: un 
archivio può essere di due tipi, se¬ 
quenziale o a chiavi. In un archivio 
sequenziale i campi hanno tutti la 
medesima importanza, ed è possi¬ 
bile ordinare i record in base a 
qualsiasi campo. In un archivio a 
chiavi, invece, ogni record viene 
indicato tramite uno o più campi 
chiave (ad esempio il nome in una 
rubrica indirizzi), che servono ap¬ 
punto come chiavi d'accesso,- in 
questo caso i record vengono 
automaticamente ordinati in base 
ai campi chiave. La lunghezza del 
campo chiave (o della concatena¬ 
zione delle chiavi) non deve co¬ 
munque superare i 36 caratteri. 

In base a quanto detto ora, se si 
risponde zero alla domanda pre- 
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cedente viene selezionato l'archi¬ 
vio sequenziale , mentre rispon¬ 
dendo 1, 2, ecc. si ottiene quello 
a chiavi. Sono considerati come 
(eventuali) campi chiave i primi 
che vengono trovati partendo dal¬ 
la parte superiore sinistra del vi¬ 
deo. Successivamente il program¬ 
ma chiede se si desidera un campo 
descrittivo del record. Nel caso 
dell'archivio sequenziale, è obbli¬ 
gatorio indicare tale campo>, che è 

Programma 1 


quello che comparirà poi nell'indice 
dell'archivio. Il campo descrittivo 
viene scelto tramite il suo numero 
(contando a partire dall'angolo in al¬ 
to a sinistra). Una volta effettuate 
tutte le scelte, viene caricato auto¬ 
maticamente il programma n. 2. 

Per questa settimana ci fermiano 
qui. Nel prossimo numero vedre¬ 
mo in dettaglio il funzionamento 
del programma n. 2, che è quello 
che gestisce l'archivio. 


ioo rem ******************* 

110 REM * SCHEDARIO 1 * 

120 REM * DI LUCA STRABLA * 

130 REM ******************* 
140 POKE45,0 :POKE46,49 :POKE47 
,49 

150 POKE53280,7 :POKE53281 ,1 
160 PRINT"{CLR}{BLU}" 

170 PRINT"{ 12 GIU '}{ 4 SPAZ 
20 ***** 

180 FORC=50688TO51924:READC1 
1 84528THEN200 

190 PRINT"{GIU’}ERRORE NELLE 


:rein 147 
:rem 141 
:rem 134 
: rem 150 

0 :POKE4 8 ,49 :POKE4 9,0 :POKE50 

:rem 44 
:rem 243 
:rem 26 
}*** INIZIALIZZAZIONE IN COR 

:rem 33 

CK=CK+Cl :POKEC,C1 :NEXT:IFCK = 

: rem 5 

ISTRUZIONI DATA":END 


200 FORA=49152TO49407:POKEA,4 
210 FORA=49408TO49663:POKEA,0 
220 FORA=49664TO50687:POKEA,3 
230 GOSUB1 680 :POKE53272,23 
240 PRINT"{CLR}{GIU'}{ 6 SPAZ 
250 PRINT"{ 6 SPAZI}{RVS}{ 8 
{ 7 SPAZI}" 

260 PRINT"{ 6 SPAZI}{RVS}{ 28 
270 PRINT"{ 7 SPAZI}{RVS} Fi 
VO ARCHIVIO{ 2 GIU'}" 

280 PRINT"{ 7 SPAZI}{RVS} F3 
VECCHIO" 

290 PRINT"{ 13 SPAZI}ARCHIVIO 
300 GETMl$ : IFMl$<>"{Fl}"ANDMl 
310 DIMXT%(63),YTl(63),LT%(6 3 
V% (1 00) ,CV$ (1 00) 

320 IFMl$ = "{F3}"THENl660 
330 PRINT"{CLR}" 

340 PRINT"{ 3 SPAZI}INSERISCI 
{GIU'}" 

350 PRINT"{ 3 SPAZI{DESIDERI 


8 : NEXT 
: NEXT 
2 :NEXT 

I}{RVS}{ 28 SPAZI}" 
SPAZI}MENU DI INPUT 


rem 

rem 

rem 

rem 

rem 

rem 


rem 

rem 


b 

98 
47 
1 03 
225 
29 

204 
1 91 


SPAZI}{ 4 GIU' }" 

{OFF}{ 2 SPAZI{CREAZIONE NUO 

:rem 51 

{OFF}{ 2 SPAZI{MANUTENZIONE 

:r em 38 

" : rem 193 

$<>"{F3}"THEN300 :rem 62 

),TT%(63),DT%(63),XV%(100),Y 


64 

201 

250 


: rem 
: rem 
: rem 

IL TRACCIATO VIDEO CHE 

:rem 152 

UTILIZZARE PER IL TUO{GIU'}" 

:r em 74 
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360 

PRINT"{ 3 

SPAZI{ARCHÌVIO, SPECIFICANDO CON 

tt#### 



{GIU'}" 


: rem 

243 

370 

PRINT"{ 3 

SPAZI}! CAMPI CHE DEFINISCI ALFANUMERICI 



{GIU 1 }" 


:rem 

253 

380 

PRINT"{ 3 

SPAZI}E CON $$$$$$ I CAMPI CHE DEFINISCI 



{GIU'}" 


:rem 

1 39 

390 

PRINT"{ 3 

SPAZI}NUMERICI, EVIDENZIANDO CON 

& LA{GIU 1 { 


fi 


: rem 

25 

400 

PRINT"{ 3 

SPAZI{POSIZIONE CHE DEVE ASSUMERE 

LA {GIU 





: rem 

28 

41 0 

PRINT"{ 3 

SPAZI{VIRGOLA QUANDO RICHIESTA} 4 

GIU 1 } 

II 




: rem 

34 

420 

PRINT"{ 7 

SPAZI}{RVS{PER CONTINUARE{GIU 1 }" 

: rem 

105 

430 

PRINT"{ 7 

SPAZI}{RVS{PREMI UN TASTO QUALSIASI" 





: rem 

209 

440 

GETA$:IFA$ 

: = " "THEN440 

: rem 

83 

450 

PRINT"{CLR}" 

: rem 

253 

460 

PRINT"{ 3 

SPAZI{LE ULTIME TRE RIGHE DELLO SCHERMO 



{GIU 1 }" 


: rem 

1 84 

470 

PRINT"{ 5 

SPAZI{SONO RISERVATE AL MESSAGGI 

{GIU 1 }" 





: rem 

78 

480 

PRINT"{ 5 

SPAZI{PERCIÒ' NON VANNO ACCURATE{ 

2 GIU 1 

}" 




: rem 

43 

490 

PRINT"{ 3 

SPAZI{QUANDO LA STESURA DEL TRACCCIATO 



{GIU'}" 


:rem 

1 73 


500 PRINT"{ 5 SPAZI}E’ TERMINATA PREMERE {RVS} Fi {OFF} 



{ 9 GIU'}" 


: rem 

59 

510 

PRINT"{ 7 SPAZI}{RVS{PER 

CONTINUARE{GIU' 

}" :rem 

105 

520 

PRINT"{ 7 SPAZI}{RVS{PREMI UN TASTO QUALSIASI" 





: rem 

209 

530 

GETA$:IFA$ = ""THEN53 0 


: rem 

83 

540 

PRINT"{CLR}" 


: rem 

253 

550 

GOSUBl330 


: rem 

225 

560 

REM COMPILAZIONE MAPPA 

VIDEO 

: rem 

239 

570 

GOSUBl640 


: rem 

231 

580 

PRINT"{ 4 SPAZI}{RVS{ ATTENDERE COMPILAZIONE IN CORSO 


{OFF}{ 3 SPAZI}"; 


: rem 

1 44 

590 

PRINT"{ 39 SPAZI}{ 4 SU} 

m . 
r 

: rem 

238 

600 

C1%=1024:T=0:V=0:C1$="": 

CL%=0:S3%=0 

:rem 

43 

61 0 

IFC1%>1 903THEN1 020 


: rem 

1 88 

620 

C2%=PEEK(C1%):Cl%=C1%+l 


: rem 

1 31 

630 

IFC2%=32THEN610 


: rem 

42 

640 

IFC 2% = 3 5THEN7 2 0 


: rem 

48 

650 

IFC 2% = 360RC2 % = 3 8THEN790 


: rem 

28 

660 

IFS1%=1THEN690 


: rem 

1 6 

670 

V=V+1:IFV>100THEN900 


: rem 

1 52 

680 

YV%(V)=(C1%-1025)/40:XV% 

(V)=C1%-l025-40* 

YV%(V) : SI 

% = 1 




:rem 

206 

690 

C3%=PEEK(Cl%) :Cl$ =C1$+CHR$(C2%) 

:rem 

68 
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700 IFC3%<>3 2ANDC3%<>35ANDC3%<>36ANDC3%<>38THEN61 0 




: rem 

90 

71 0 

SI%=0:CV$(V)=C1$:C1$="":G0T0610 

: rem 

1 26 

720 

IFS 2 % = 1THEN76 0 

: rem 

1 2 

730 

T=T+1 :IFT>63THEN930 

: rem 

1 06 

740 

YT%(T)=(CI%-1025)/40:XT%(T)=Cl%-1025-40*YT%(T):S2 

% = 1 



: rem 

1 92 

750 

TT%(T)=0 :DT%(T)=0 

: rem 

1 32 

760 

C3%=PEEK(CI%):CL%=CL%+1 

: rem 

1 91 

770 

IFC3%=35THEN610 

: rem 

51 

780 

S2%=0:LT%(T)=CL%:CL%=0:G0T0610 

: rem 

1 76 

790 

IFS3%=1THEN830 

: rem 

1 8 

800 

T=T+1:IFT>63THEN930 

: rem 

1 04 

81 0 

YT%(T)=(CI%-1025)/40:XT%(T)=Cl%-1025-40*YT% 

(T):S3 

% = 1 



: rem 

1 91 

820 

TT%(T)=1 :S4% = 0:CD% = 0 

: rem 

32 

830 

IFC2%=38ANDS4%=1THEN990 

: rem 

42 

840 

IFC 2 % = 3 8 THENS 4 % = 1 

: rem 

1 82 

850 

IFC2%=38THEN610 

: rem 

52 

860 

IFS4%=1THENCD%=CD%+1 

: rem 

103 

870 

C3% = PEEK(CI %) :CL%=CL%+1 

: rem 

1 93 

880 

IFC3%=360RC3%=38THEN610 

: rem 

26 

890 

S3%=0:LT%(T)=CL%:DT%(T)=CD%:CL%=0:G0T0610 

: rem 

56 

900 

GOSUBl680 

: rem 

232 

91 0 

GOSUB1640 

; rem 

229 

920 

PRINT"{ 4 SPAZI}{RVS}{ 5 SPAZI}TROPPE DESCRIZIONI 



{ 4 SPAZI}{OFF}{ 6 SPAZI}":GOTO550 

2 rem 

58 

930 

GOSUBl680 

: rem 

235 

940 

GOSUBl640 

2 rem 

232 

950 

PRINT"{ 4 SPAZI}{RVS}{ 5 SPAZI}TROPPI CAMPI 
{ 6 SPAZI}{OFF}{ 10 SPAZI}":GOTO550 

2 rem 

1 04 

960 

GOSUBl680 

2 rem 

238 

970 

GOSUBl640 

2 rem 

235 

980 

PRINT"{ 3 SPAZI}{RVS}{ 2 SPAZI}IL RECORD SUPERA I 

255 


BYTE{ 2 SPAZI}{OFF}{ 2 SPAZI}":GOTO550 

2 rem 

96 

990 

GOSUBl680 

: rem 

241 

1 000 

GOSUBl640 

2 rem 

1 2 

1010 

PRINT"{ 3 SPAZI}{RVS}{ 2 SPAZI}CAMPO NUMERICO ERRATO 


{ 2 SPAZI}{OFF}{ 10 SPAZI}":GOTO550 

> 2 rem 

227 

1 020 

LR=0:FORC1=1 TOT:LR=LR+LT%(Cl) :NEXT 

2 rem 

1 69 

1 030 

IFLR> 2 55THEN9 6 0 

2 rem 

1 53 

1 040 

GOSUBl640 

2 rem 

1 6 

1050 

INPUT"{ 2 SPAZI}{RVS} QUANTI CAMPI CHIAVE 

{OFF} 



{ 15 SPAZI}} 14 SIN}";NC$ 

2 rem 

1 76 

1 060 

NC=VAL(NC$):Cl$=STR$(NC):C1=LEN{Cl$):C1=Cl 

: Cl $ 

= RIG 


HT$(Cl$,Cl ) 

2 rem 

54 

1 070 

IFCl$< >NC$THENl 040 

2 rem 

1 8 

1 080 

IFNC=0THENLK=0:GOTOl150 

2 rem 

1 95 

1 090 

IFNC < =TTHEN1140 

2 rem 

1 72 

1 1 00 

GOSUBl680 

2 rem 

1 7 
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ni o 

GOSUBl640 

: rem 

1 4 

1 1 20 

PRINT"{ 3 SPAZI}{RVS}{ 2 SPAZI}MAGGIORE 

DEL NUMERO D 


EI CAMPI{ 2 SPAZI}{OFF}{ 2 SPAZI}" 

: rem 

1 07 

1 1 30 

FORC1=1T02 000:NEXT:GOTO! 040 

: rem 

1 64 

1 1 40 

LK=0:FORCl=1TONC:LK=LK+LT%(Cl):NEXT 

: rem 

21 2 

1 1 50 

IFLK> 3 6THEN1040 

: rem 

1 36 

1 1 60 

IFLK = 0THEN1 230 

: rem 

80 

1 1 70 

IFLK>30THENl660 

: rem 

1 40 

1 1 80 

GOSUBl640 

: rem 

21 

1 1 90 

PRINT"{ 2 SPAZI}{RVS} VUOI CAMPO DESCRITTIVO ? (S/N) 


{OFF}{ 4 SPAZI}" 

: rem 

1 63 

1 200 

GETA$:IFA$ = ""THENl 2 00 

: rem 

1 69 

1 21 0 

IFA$ = "N"THEN1 660 

: rem 

1 31 

1 220 

IFA$< >"S"THENl 200 

: rem 

1 88 

1 230 

GOSUBl640 

: rem 

1 7 

1 240 

INPUT"{ 4 SPAZI}{RVS}{ 3 SPAZI}NUMERO CAMPO 

{ 2 spazi Descrittivo} 2 spazi} {off} { 10 spazi} 



{ 10 SIN}{RVS}";NC$ 

: rem 

249 

1250 

NC=VAL(NC$):C1$=STR$(NC):C1=LEN(C1$):C1 = 

Cl-1 : Cl $ 

= RIG 


HT$(Cl$,Cl) 

: rem 

55 

1 260 

IFC1$<>NC$THENGOSUBl 680:GOTOl 230 

: rem 

21 4 

1 270 

IF(NC>T)OR(NC = 0)THENGOSUBl 680 : GOTO!2 30 

: rem 

1 1 6 

1 280 

FORC=OTONC-1 :ID=ID + LT%(C) :NEXT:ID = ID+1 

: rem 

1 1 1 

1 290 

FORC=OTONC:FD=FD+LT%(C):NEXT 

: rem 

31 

1 300 

Cl=6+LK+FD-ID:IFCl<40THENl320 

: rem 

1 74 

1 31 0 

FD=33-LK+ID 

: rem 

1 1 0 

1 320 

GOTO!660 

: rem 

204 

1 330 

REM EDIT MAPPA 

: rem 

64 

1 340 

Xl=0 :Yl=0 :SW=0:POKEl 0 24,1 60 

: rem 

51 

1350 

X2=Xl:Y2=Y1 

: rem 

1 65 

1 360 

GETA$:IFA$=""THENl 360 

: rem 

1 83 

1 370 

IFA$ = "{Fi}"THENl 61 0 

: rem 

1 88 

1 380 

IFA$="{SU}"THENY2=Yl - 1 

: rem 

1 77 

1 390 

IFA$ = "{GIU 1 }"THENY2 = Y 1 +1 

: rem 

48 

1 400 

IFA$ = "{DES}"THENX2 = Xl +1 

: rem 

50 

1410 

IFA$ = "{SIN}"THENX2=Xl - 1 

: rem 

1 81 

1 420 

IFX2<0ORX2>3 9ORY2<0ORY2>24THENl 3 50 

: rem 

1 29 

1 430 

IFXl OX20RY1 OY2THEN1 570 

: rem 

1 6 

1 440 

IFA$="{HOME}"THENl 570 

: rem 

77 

1 450 

IFA$="{CLR}"THENPRINTA$:GOTOl330 

: rem 

45 

1 460 

Cl=ASC(A$) :IFCl=130RC1=20ORCl=148THEN1 350 :rem 

130 

1 470 

IFCl=18THENSW=1 :GOTOl3 50 

: rem 

248 

1 480 

IFCl=146THENSW=0:GOTOl350 

: rem 

42 

1 490 

IFCl>32ANDC1<64THENl 5 20 

: rem 

88 

1 500 

IFCl<96ANDC1>63THENCl=Cl -64 

: rem 

77 

1 51 0 

IFCl>192THENC1=Cl -1 28 

: rem 

1 92 

1 520 

POKEl024+Yl*40+Xl,Cl+SW*128:Xl=X1+1 

: rem 

21 2 

1 530 

IFXl=40THENX1=39 

: rem 

227 

1 540 

Cl=PEEK(1 0 24 + 4 0*Yl+X1) :IFCl>127THENC1=C1 

-12 8 :GOTOl5 6 


0 

: rem 

31 

1 550 

Cl=C1+128 

: rem 

1 82 
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1560 POKEl024+Yl*40+Xl,Cl:GOTOl350 
1 570 CI=PEEK(1 02 4 + 40*Yl+X1) :IFCl>127THENC1 = 
0 

1580 C1=C1+128 

1590 POKEl024+Yl*40+Xl,Cl:Xl=X2:Y1=Y2:IFA$= 
30 

1600 GOTOl540 

1610 CI=PEEK(1024+40*Yl+X1):IFCl>127THENC1= 


:rem 149 
Cl-12 8 :GOTOl59 
: rem 3 7 
: rem 185 
"{HOME}"THENl3 
:rem 42 
:rem 202 
Cl-128:GOTOl63 



0 

: rem 

27 

1 620 

Cl=C1+1 

: rem 

74 

1 630 

POKEl 024 + 40*Yl+X1 ,C1 : RETURN 

: rem 

1 1 3 

1 640 

PRINT"{HOME}{ 22 GIU'}{ 40 SPAZI}"; 

: rem 

96 

1 650 

RETURN 

:rem 

1 72 

1 660 

PRINT"{CLR}" 

: rem 

49 

1 670 

LO AD 

: rem 

238 

1 680 

BA= 54272 :POKEBA+24,15:POKEBA+5,3*16 + 5: 

POKEBA+6,8 

*16 + 


1 5 


: rem 


1 7 


1 690 

1 700 
1710 
1 720 
1 730 
1 740 
1 750 
1 760 
1 770 
1 780 
1 790 
1 800 
1810 
1 820 
1 830 
1 840 
1 850 
1 860 
1 870 
1 880 
1 890 
1 900 
1 91 0 
1 920 
1 930 
1 940 
1 950 
1 960 
1 970 
1 980 
1 990 
2000 
201 0 


POKEBA+1 ,50 :POKEBA,0 :POKEBA+2,0 :POKEBA+3,8 :POKEBA+4, 


65 * :rem 

FORA=1TO 5 0 0 :NEXT :rem 

POKEBA+4 f 0 :POKEBA+5,0 :POKEBA+6,0 : RETURN : rem 
REM INIZIO DATA :rem 

DATAI 60,0,1 92,4,240,40,1 52,24,1 05,4 :rem 

DATAI 41 ,36,1 98,24,105,190,141 ,23,198,162 :rem 
DATA0,189,0,197,201,0,16,6,201,240 :rem 

DATA48,2,169,32,157,0,7,232,224,0 :rem 

DATA208,235,200,76,2,198,96,238,252,197 :rem 

DATAI 73,2 52,1 97,201 ,0,208,2,56,96,24 :rem 

DATA96,238,249,197,173,249,197,201,0,208 :rem 
DATA2,56,96,24,96,169,0,141,255,197 . :rem 

DATAI 41 ,254,1 97,1 74,255,1 97,1 89,0,1 93,1 41 : rem 

DATA24 6,1 97,232,1 89,0,1 93,141 ,245,197,232 :rem 
DATAI 89,0,1 93,1 68,232,1 89,0,193,232,142 :rem 

DATA255,!97,162,0,192,0,240,10,136,24 :rem 

DATAI 0 5,40,1 44,246,232,76,1 1 4,1 98,1 41 ,2 52 : rem 

DATAI 97,1 38,24,1 05,4,141 ,253,1 97,234,234 :rem 
DATA234,234,234,174,254,197,172,246,197,173:rem 
DATA245,197,201,1,240,36,192,0,240,37 :rem 

DATAI 73,253,1 97,1 41 ,1 77,198,1 73,252,197,141 :rem 
DATAI 76,1 98,1 89,0,1 92,1 41 ,1 37,6,232,136 :rem 
DATA24,32,47,198,144,226,238,253,197,76 :rem 

DATAI 56,1 98,1 69,0,1 41 ,249,1 97,192,0,240 :rem 
DATA98,1 73,253,197,24,1 05,1 90,1 41 ,21 8,1 98 : rem 

DATAI 73,252,1 97,141 ,21 7, 1 98,173,1 , 1 95,201 :rem 
DATA255,208,25,173,253,197,141,239,198,173 :rem 
DATA252,!97,141,238,198,169,46,141,10,5 :rem 

DATAI 6 9,1 ,141,249,197,76,31,1 99,173,253 :rem 

DATAI 97,1 41 ,28,1 99,1 73,252,1 97,1 41 ,27,1 99 :rem 
DATAI 73,24 9,1 97,201 ,0,208,12,189,0,1 92 :rem 

DATA201,48,240,11,169,1,141,249,197,189 :rem 

DATAO,192,141,1,5,136,232,24,32,47 :rem 


236 
1 5 
161 
1 54 
202 
223 
1 59 
1 22 
1 94 
26 
251 
243 
32 
29 
1 80 
60 
1 4 
229 
1 39 
66 
1 44 
1 82 
1 93 
1 84 
35 
25 
89 
1 87 
1 99 
51 
1 30 
1 68 
1 52 
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2020 DATA198,144,160,238,253,197,76,197,198,142 :rem 91 
2030 DATA254,197,174,255,197,189,0,193,201,255 :rem 30 
2040 DATA240,3,76,83,198,96,234,234,234,234 :rem 130 
2050 DATA234,234,162,0,173,255,197,172,254,197 :rem 22 
2060 DATA32,96,199,162,0,173,253,197,141,255 :rem 182 
2070 DATA197,172,252,197,140,254,197,32,96,199 :rem 44 
2080 DATA96,234,192,0,240,10,136,24,105,40 :rem 53 
2090 DATA144,246,232,76,96,199,141,127,199,141 :rem 37 
2100 DATA143,199,138,24,105,4,141,128,199,141 :rem 218 
2110 DATA144,199,173,253,4,197,128,48,6,24 :rem 83 
2120 DATA105,128,76,142,199,56,233,128,141,253 :rem 17 
2130 DATA4,96,234,234,234,173,2,193,141,252 :rem 115 
2140 DATA197,173,3,193,141,253,197,169,25,141 :rem 231 
2150 DATA254,197,169,0,141,255,197,32,66,199 :rem 193 
2160 DATA173,198,0,201,0,240,249,169,0,141 :rem 58 
2170 DATA198,0,173,119,2,201,145,240,18,201 :rem 105 
21 80 DATAI 7,240,20,201 ,29,240,22,201 ,1 57,208 :rem 147 
2190 DATA73,206,253,197,76,226,199,206,252,197 :rem 43 
2200 DATA76,226,199,238,252,197,76,226,199,238 :rem 50 
2210 DATA253,197,173,253,197,201,40,48,3,76 :rem 127 
2220 DATA240,199,201,255,208,9,173,255,197,141 :rem 21 
2230 DATA253,!97,76,174,199,173,252,197,201,25 :rem 35 
2240 DATA48,3,76,7,200,201,255,208,9,173 :rem 224 
2250 DATA254,!97,141,252,197,76,174,199,32,66 :rem 248 
226Ó DATAI 99,76,1 74,1 99,201 ,1 33,48,1 1 ,201 ,1 41 :rem 224 
2270 DATA48,3,76,37,200,141,241,197,96,201 :rem 73 
2280 DATA13,208,56,160,0,185,2,193,205,254 :rem 65 
2290 DATA1 97,48,1 2,208,1 7,1 85,3,1 93,205,255 :rem 134 
2300 DATAI 97,48,2,208,7,200,200,200,200,76 :rem 48 
2310 DATA43,200,185,2,193,201,64,208,2,160 :rem 50 
2320 DATAO,185,2,193,141,252,197,185,3,193 :rem 72 
2330 DATAI 41,253,1 97,32,66,1 99,76,1 74,1 99,201 :rem 242 
2340 DATA64,48,7,201,96,16,3,56,233,64 :rem 133 
2350 DATA201,193,48,7,201,235,16,3,56,233 :rem 13 
2360 DATA128,201,0,48,4,201,91,48,3,76 :rem 120 
2370 DATAI 74,1 99,1 41 ,251 ,1 97,1 62,0,1 72,254,1 97 :rem 31 
2380 DATA173,255,197,192,0,240,10,24,105,40 :rem 110 
2390 DATA136,144,246,232,76,141,200,141,204,200 :rem 45 
2400 DATAI 41 ,1 81 ,200,1 41,249,1 97,1 38,24,1 05,4 :rem 208 
2410 DATA1 41 ,205,200,24,105,1 90,1 41 ,1 82,200,1 41 :rem 27 
2420 DATA250,197,173,139,196,201,240,48,4,201 :rem 218 
2430 DATAO,48,3,76,174,199,238,253,197,32 :rem 39 
2440 DATA66,199,173,251,197,141,139,6,24,32 :rem 135 
2450 DATA61 , 1 98,1 44,3,238,250,1 97,1 73,249,1 97 :rem 246 
2460 DATA141 ,228,200,1 73.250,1 97,1 41 ,229,200,1 73:rem 105 
2470 DATA8,1 95,201 ,240,48,7,201 ,0,1 6,3 :rem 115 
2480 DATA76,!74,199,76,41,200,169,24,141,252 :rem 185 
2490 DATA1 97,32,66,1 99,1 62,0,1 38,1 41 ,243,1 97 :rem 191 
2500 DATA142,255,197,142,254,197,174,255,197,189:rem 143 
2510 DATAO,193,141,246,197,232,189,0,193,141 :rem 170 
2520 DATA245,! 97,232,1 89,0,1 93,1 41 ,247,197,232 :rem 28 
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2530 DATA189,0,193,141,248,197,232,142,255,197 :rem 31 
2540 DATA162,0,172,247,197,192,0,240,10,136 :rem 111 
2550 DATA24,105,40,144,246,232,76,47,201,141 :rem 159 
2560 DATA252,197,138,24,105,4,141,253,197,169 :rem 234 
2570 DATAI,205,245,197,240,36,173,253,197,141 :rem 227 
2580 DATA102,201,173,252,197,141,101,201,160,0 :rem 242 
2590 DATAI 74,254,1 97,204,246,1 97,240,1 1 ,1 85,1 00 :rem 72 
2600 DATA6,157,0,192,232,200,76,95,201,76 :rem 17 
2610 DATA103,202,173,252,197,141,155,201,141,180:rem 95 
2620 DATA201,141,238,201,141,52,202,173,253,197 :rem 48 
2630 DATA141,156,201,141,239,201,24,105,190,141 :rem 41 
2640 DATAI 81 ,201 ,1 41 , 53,202,160,0, 204,246,1 97 :rem 203 
2650 DATA240,15,185,164,5,32,128,202,234,201 :rem 157 
2660 DATAI,240,4,200,76,149,201 ,1 40,249,1 97 :rera 116 
2670 DATA162,0,236,246,197,240,12,189,164,195 :rem 235 
2680 DATA201,255,240,5,232,136,76,174,201,174 :rem 217 
2690 DATA254,197,152,56,109,246,197,141,251,197 :rem 92 
2700 DATA192,0,16,10,169,48,157,0,192,232 :rem 15 
271 0 DATA200,76,202,201 ,1 69,0,1 41 ,250,1 97,236 :rem 207 
2720 DATA246,197,240,0,204,251,197,16,101,204 :rem 210 
2730 DATA249,197,208,1,200,185,164,5,141,244 :rem 173 
2740 DATAI 97,1 69,1 ,205,250,1 97,208,1 0,1 73,244 :retn 228 
2750 DATA197,201,32,234,234,76,16,202,173,244 :rem 220 
2760 DATAI 97,201,32,208,7,1 69,1 ,234,234,234 :rem 123 
2770 DATA169,48,201,48,48,12,201,58,16,8 :rera 239 
2780 DATA157,0,192,232,200,76,221,201,173,252 :rem 210 
2790 DATAI 97,1 41 ,65,202,1 73,253,1 97,24,1 05,21 2 :retn 21 
2800 DATA141,66,202,160,0,185,164,195,201,240 :rem 206 
281 0 DATA48,13,201 ,0,16,9,1 69,7,1 53,164 :rem 175 
2820 DATA217,200,76,51,202,169,1,141,243,197 :rem 166 
2830 DATA138,56,237,254,197,168,169,48,204,246 :rem 47 
2840 DATA197,16,8,157,0,192,232,200,76,84 :rem 31 
2850 DATA202,204,246,197,240,1,202,142,254,197 :rem 10 
2860 DATA174,255,197,189,0,193,201,255,208,1 :rem 184 
2870 DATA96,76,8,201,234,234,234,234,234,234 :rem 180 
2880 DATA234,234,192,0,208,3,140,242,197,201 :rem 164 
2890 DATA46,208,3,169,1,96,201,32,240,8 :rem 182 
2900 DATA169,!,141,242,197,169,0,96,169,1 :rem 33 
2910 DATA205,242,197,240,2,169,0,96,234,234 :rem 123 
2920 DATA234,234,234,234,234,234,234,234,234,234:rem 109 
2930 DATA1 69,6,162,0,1 57,0,216,232,224,0 :rein 216 
2940 DATA208,248,157,0,217,232,224,0,208,248 :rem 171 
2950 DATAI 57,0,21 8,232,224,0,208,248,1 57,0 :rem 66 
2960 DATA21 9,232,224,0,208,248,96,0,0,0 : rem 169 
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Attacco aereo 


C64 


In questo semplice ma divertente 

"> " sposta il mirino a destra ; 


gioco di simulazione vi troverete al 

" < " sposta il mirino a sinistra; 


comando di una batteria contrae- 

"A " sposta il mirino in alto ; 


rea. La vostra missione consiste nel 

”Z“ sposta il mirino in basso. 


colpire al volo le bombe sganciate 

Per sparare è sufficiente premere 

dagli aerei nemici. Per aggiustare il 
tiro utilizate i seguenti tasti: 

la barra spaziatrice. 


3 POKE53280,1 4 :POKE53281 ,1 4 

: rem 

242 

5 PRINT"{CLR}{BLK}{ 4 GIU’}{ 

12 SPAZI}{RVS} ATTACCO 


{ 2 SPAZI}AEREO {OFF}" 

: rem 

1 24 

6 PRINT"{ 12 GIU'H 11 SPAZI}ATTENDERE PREGOrem 

10 POKE52,48 :POKE56,48 :CLR:POKE56333,1 27:POKEl ,51 

1 1 8 


: rem 

1 1 7 

20 FORI=OTOl023 

: rem 

1 04 

30 POKE1+12288,PEEK(1+53248) 

: rem 

39 

40 NEXT 

: rem 

1 63 

50 POKEl,55:POKE56333,1 29 

: rem 

1 44 

60 POKE53272,29 

: rem 

47 

70 FORI = 12 50 4TO12 511 : READA 

: rem 

4 

80 POKEl,A:NEXT 

: rem 

1 98 

90 POKE53272,21 

: rem 

42 

100 POKE53280,6 :POKE53281 ,7 

: rem 

243 

110 POKE650,128: 

: rem 

93 

1 20 PRINTCHR$ (142) 

: rem 

9 

1 30 X=RND(-TI) 

: rem 

40 

140 LL=40:R1=20:A=1 958 : Al=2023 :C=54272 :rem 

39 

150 P=0:M=0:T=0:Q=0 

: rem 

58 

160 PRINT"{CLR}{ 7 GIU'H 13 

SPAZI}{RVS}ATTACCO{OFF} 


{RVS}AEREO{OFF}" 

: rem 

37 

170 PRINT"{ 4 GIU'}{ 7 SPAZI}VUOI LE ISTRUZIONI 


{ 2 SPAZI}(S/N)?" 

: rem 

1 

190 GETA$:IFA$<>"S"ANDA$<>"N 

"THEN190 : rem 

43 

200 IFA$ = "N"THEN3 4 0 

: rem 

27 

210 IFA$ = "S"THEN220 

: rem 

30 

220 PRINT"{CLR}{ 2 GIU'H 2 SPAZI}DEVI CERCARE DI FERMARE 

LE BOMBE" 

: rem 

1 88 


230 PRINT"{ 2 SPAZI}CHE CADONO COLPENDOLE A MEZZ’ARIA." 

:rem 200 

240 PRINT"{ 2 GIU'H 2 SPAZI}PER MUOVERE IL MIRINO: 

: rem 

250 PRINT"{GIU 1 }{ 4 SPAZI}{RVS}SINISTRA{OFF} - TASTO 

: rem 


1 4 

i ^ i ii 

204 


27 






260 

PRINT"{GIU'}{ 4 SPAZI}{RVS}DESTRA{OFF} - 

TASTO 

1 y 1 il 



: rem 

1 27 

270 

PRINT"{GIU 1 }{ 4 SPAZI}{RVS}ALTO{OFF}- 

TASTO 

1 A'" 



: rem 

74 

280 

PRINT"{GIU'}{ 4 SPAZI}{RVS}BASSO{OFF} - 

TASTO 

’Z MI 



:rem 

1 27 

290 

PRINT"{ 2 GIU'}{ 2 SPAZI}QUANDO LA BOMBA E 

IL MIRINO 


SONO" 

: rem 

43 

31 0 

PRINT"{ 2 SPAZI}ALLINEATI SPARA PREMENDO LA BARRA 

fi 

• 



: rem 

236 

320 

PRINT"{ 2 GIU 1 }{ 6 SPAZI}{RVS}PREMI UN TASTO PER 

INIZ 


IARE{OFF}" 

:rem 

25 

330 

GETA$: IFA$ = ""THEN3 3 0 

: rem 

79 

340 

PRINT"{CLR}{ 8 GIU'}{ 13 SPAZI}BUONA FORTUNA!" 




: rem 

56 

350 

FORI=lTO500:NEXT 

: rem 

231 

360 

A=(Al-LL*1.5)-P*LL:IFT=25GOTO760 

: rem 

51 

370 

T=T+1 

: rem 

219 

380 

IFPEEK(54296)<>15THENGOSUB88 0 

: rem 

217 

390 

GOSUB860 

: rem 

1 86 

400 

PRINT"{CLR}":D=INT(RND(1)*Rl)+LL/4 

: rem 

40 

410 

E=D+1024 

: rem 

77 

420 

PRINT"BOMBE:";T-1 

: rem 

243 

430 

PRINT"{ 2 GIU' }PUNTI :";P*Q*10 

: rem 

229 

440 

FORI=1TOl000:NEXT 

: rem 

1 9 

450 

POKEA,91 :POKEA+C,0 

: rem 

1 9 

460 

GETA$ 

: rem 

223 

470 

IFA$ = "A"THENA=A-LL 

: rem 

4 

480 

IFA$="Z"THENA=A+LL 

: rem 

28 

490 

IFA$="."THENA=A+1 

: rem 

1 38 

500 

IFA$ = ","THENA=A-1 

: rem 

1 30 

51 0 

IFA>AlTHENA=A-LL 

: rem 

201 

520 

IFA<1 0 2 4THENA=A+LL 

: rem 

27 

530 

POKEE,27:POKEE+C,2 

: rem 

27 

540 

FORI=1TO50:NEXT 

: rem 

1 84 

550 

IFE>Al-LLTHENGOTO 690 

: rem 

234 

560 

IFA=EORA=E-1ORA=E+lORA=E-LLORA=E+LLTHEN580 

: rem 

139 

570 

E=E+LL:PRINT"{CLR}": GOTO450 

: rem 

208 

580 

GETA$ 

: rem 

226 

590 

IFA$ = " "THEN610 

: rem 

21 7 

600 

GOTO 570 

: rem 

1 07 

610 

X=100:FORI = 1TOl0 :POKEE,X:POKEE+C,0 

: rem 

67 

620 

POKEE+LL-1,X:POKEE+LL-1+C,1 

: rem 

75 

630 

POKEE+LL+2,X:POKEE+LL+2+C,12 

: rem 

1 24 

640 

X=X+1 

: rem 

227 

650 

NEXT:GOSUB920:POKE53281,7 

• : rem 

254 

660 

P=P+1 

: rem 

21 3 

670 

Q=Q+24-INT((A-1024)/LL) 

: rem 

1 95 

680 

GOTO 3 60 

: rem 

1 1 2 

690 

POKEE,32:POKEE+C,2 : FORI = 1T05 

: rem 

206 


28 




700 

POKEE-1,86 :POKEE-I+C 14 

: rem 

62 

71 0 

POKEE+1,86 :POKEE+I+C,2 

: rem 

8 

720 

FORS=1TO20:NEXT 

: rem 

1 91 

730 

NEXT 

: rem 

21 7 

740 

M=M+1 

: rem 

206 

750 

GOSUB92 0 :POKE53 2 81 ,7:GOTO360 

: rem 

1 46 

760 

POKES + 2 4,0 :POKE5 3 2 72,21 

: rem 

7 

770 

PRINT"{CLR}{ 2 GIU 1 }{ 15 SPAZI}{RVS}FINE{OFF} {RVS}GI 


OCO{OFF}" 

: rem 

255 

780 

PRINT"{ 3 GIU'}{ 3 SPAZI}BOMBE DISTRUTTE:" 

P :rem 

90 

790 

PRINT"{ 2 GIU'H 3 SPAZI }BOMBE MANCATE : "M 

: rem 

1 20 

800 

PRINT" { 2 GIU'H 3 SPAZI} PUNTEGGIO TOTALE: 

"P*Q*10 




2 rem 

1 50 

810 

FORI = 1TO10 :GETA$:NEXT 

2 rem 

51 

820 

PRINT"{ 4 GIU'}{ 6 SPAZI}PREMI '{RVS}A{OFF}' PER 

GIOC 


ARE ANCORA" 

2 rem 

244 

830 

GETA$:IFA$=""THEN830 

2 rem 

89 

840 

IFA$="A"THENl 40 

2 rem 

22 

850 

END 

2 rem 

1 1 6 

860 

POKE53272,29:RETURN 

2 rem 

1 29 

870 

DATA0,128,192,252,255,248,0,0 

2 rem 

1 35 

880 

S = 5 4 2 7 2 :FORL=0TO 2 4 :POKES,0 :NEXT:POKES + 1 ,2 : 

POKES+5 

,40 



2 rem 

202 

890 

POKES + 6,146 :POKES + 24,15:POKES + 4,65 

2 rem 

220 

900 

POKES+2,200 

2 rem 

54 

91 0 

RETURN 

2 r em 

1 22 


920 S = 54 27 2 :FORL=0TO24:POKES,0 :NEXT:POKES + 3,12:POKES+5,l7 

:rem 252 

930 POKES + 6,130:POKES+24,15 :POKES + 4,129 :POKES+1 ,1 :FORDE=2 
50TO0STEP-8 :POKES,DE :rem 217 

940 FORQQ=1T03:POKE5 32 81 ,QQ:NEXTQQ,DE :FORL=0TO24:POKES + L, 
0 :NEXT : rem 95 

950 RETURN :rem 126 


ERRATA CORRIGE 

Per un errore in fase di impaginazione della rivista, il listato del programma 
“MINOTAURO" per Ciò (Papersoft n. 16) era incompleto. Ecco le linee 
mancanti: 

1060 CL$(6)="UN FATTORE DELLA SECONDA CIFRA E'"+STR$(I):R 
ETURN 

1070 CL$(5)="UN FATTORE DELLA PRIMA CIFRA E’"+STR$(I):RET 
URN 
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QUALCOSA DI SUPER, DI INEDITO, 

DI IRRESISTIBILE 















Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 


GRUPPO 

EDITORIALE 

JACKSON 


I giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, al 
già fatto, al... già registrato. 


IN EDICOLA 
JACKSON SOFT 
SERIE ORO 










C s COMMODORE 



SuperSinc 
Super Commodore 
sono idee 

vii SOft 
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